COMMENT ⊗   VALID 00003 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	. DEVICE XGP    
C00004 00003	.PAGE←65
C00005 ENDMK
C⊗;
. DEVICE XGP    
.spacing 20*5 mills;
.EVERY HEADING(,{PAGE},)
.AREA TEXT LINES 4 TO 40
.FONT 1 "MBIG[HHA,LCS]"
.font 2 "BMETI[HHA,LCS]"
.font 4 "BMUS[HHA,LCS]"
.font 6 "MBIG[HHA,LCS]"
.!XGPLFTMAR←400
.PORTION MAIN;
.PLACE TEXT;
.PAGE FRAME 138 WIDE 106 HIGH;
.COMPACT
.<< Put in a footnote. >>
.
.COUNT FOOTNOTE INLINE FROM 1 TO 999 IN PAGE PRINTING ⊂"*****"[1 TO FOOTNOTE]⊃
.<<	(IF THISDEVICE = "XGP" THEN "%51%*" ELSE "[1]");>>
.
.FOOTSEP ← "__________";
.AT "$$" ENTRY "$"
.	⊂
.	NEXT FOOTNOTE;
.	FOOTNOTE!;
.	SEND FOOT
.		⊂
.		BEGIN "NEXT FOOTNOTE"
.		SELECT 1;
.		SINGLE SPACE
.		SPACING 0 MILLS
.		INDENT 0,0,0;
.		(FOOTNOTE! & " ");
ENTRY
.		END "NEXT FOOTNOTE";
.		⊃;
.	⊃;
.
.TURN ON "%↓_↑↓[&]","α"
.at "!!" txt ";"	⊂
.("↑[%3"&"txt"[1]&"]&↓["&"txt"[2]&"]%*");
.COMMENT ("txt"[1]&"↑[%3"&"txt"[2]&"]&↓["&"txt"[3]&"]%*");
.  ⊃
.PAGE←65
.NEXT PAGE
.begin verbatim
Control Tonics
.end
.FILL INDENT 12
	An extension of the previous line of thought will serve well
when considering the following analysis of music typical of the work
of Bach.
.BEGIN VERBATIM

Example 67.  Bach, Invention No.4 in d.
.END
.CENTER
%6⊂⊗⊃L[α%0,α%-13.4](17,22):N67XA.PLT[C5,LCS]⊂⊗⊃%1